home *** CD-ROM | disk | FTP | other *** search
/ You're the Director / You're The Director.iso / mac / MACF / MGER.DIR / 00028_Script_28 < prev    next >
Text File  |  1995-10-10  |  564b  |  29 lines
  1. on mousedown
  2.   global letgo,movielist
  3.   
  4.   set the ink of sprite 13 to 4
  5.   updateStage
  6.   
  7.   if the doubleclick then
  8.     --playmovn
  9.     if count(movielist)>=24 then exit
  10.     set the ink of sprite 13 to 4
  11.     updateStage
  12.     put the clickon into yu
  13.     --set the castnum of sprite yu=the number of cast string(chars(the name of cast (the castnum of sprite yu),1,2)&"s")
  14.     addbar yu
  15.     updateStage
  16.     exit
  17.   end if
  18.   
  19.   set letgo=2
  20.   
  21. end
  22.  
  23. on mouseup
  24.   global reset,letgo
  25.   if the doubleclick then exit
  26.   set letgo=0
  27.   set reset=1
  28. end
  29.